home *** CD-ROM | disk | FTP | other *** search
/ Oz - The Magical Adventure / Adventure.iso / pc / dkdata / four.dxr / poppies_1_pickup wheatFeather.ls < prev    next >
Encoding:
Text File  |  2000-06-01  |  1.6 KB  |  77 lines
  1. property Active
  2.  
  3. on beginSprite me
  4.   global gDifficultyLevel
  5.   if gDifficultyLevel = 1 then
  6.     me.Active = 0
  7.     if sprite(me.spriteNum).member.name contains "wheat" then
  8.       sprite(me.spriteNum).visible = 0
  9.     else
  10.       sprite(me.spriteNum).visible = 1
  11.     end if
  12.   else
  13.     me.Active = 1
  14.     sprite(me.spriteNum).visible = 1
  15.   end if
  16.   sprite(me.spriteNum).cursor = 280
  17. end
  18.  
  19. on mouseEnter me
  20.   global gCursorHidden, gFloatSprite
  21.   if me.Active then
  22.     if gFloatSprite = EMPTY then
  23.       sprite(me.spriteNum).cursor = 280
  24.     else
  25.       gCursorHidden = 0
  26.       puppetSprite(119, 0)
  27.     end if
  28.   end if
  29. end
  30.  
  31. on mouseLeave me
  32.   global gCursorHidden, gFloatSprite
  33.   if me.Active then
  34.     if gFloatSprite = EMPTY then
  35.       gCursorHidden = 0
  36.       puppetSprite(119, 0)
  37.       cursor(-1)
  38.     end if
  39.   end if
  40. end
  41.  
  42. on mouseDown me
  43.   global gFloatSprite, gCursorHidden, gCurrentScreen
  44.   if me.Active then
  45.     if gFloatSprite = EMPTY then
  46.       puppetSprite(25, 1)
  47.       if gCurrentScreen = "4612" then
  48.         sprite(25).member = "wheat.02"
  49.       else
  50.         sprite(25).member = "4612_owl_feather.01"
  51.       end if
  52.       gCursorHidden = 1
  53.       sprite(me.spriteNum).cursor = 200
  54.       puppetSound("46_wheat")
  55.       puppetSprite(119, 0)
  56.       gFloatSprite = 25
  57.     else
  58.       gCursorHidden = 0
  59.       puppetSprite(119, 0)
  60.       sprite(25).member = "empty"
  61.       gFloatSprite = EMPTY
  62.       sprite(me.spriteNum).cursor = 280
  63.     end if
  64.   end if
  65. end
  66.  
  67. on exitFrame me
  68.   global gFloatSprite
  69.   if me.Active then
  70.     if gFloatSprite = EMPTY then
  71.       sprite(me.spriteNum).cursor = 280
  72.     else
  73.       sprite(me.spriteNum).cursor = 200
  74.     end if
  75.   end if
  76. end
  77.